home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO023.dsk / A1.bas next >
BASIC Source File  |  2012-02-16  |  2KB  |  72 lines

  1. 10  HGR : HCOLOR= 3
  2. 20 X% = 100:Y% = 80
  3. 22  GOSUB 198
  4. 24 X% = 108
  5. 26  GOSUB 210
  6. 28 X% = 116
  7. 30  GOSUB 198
  8. 32 X% = 124
  9. 34  GOSUB 198
  10. 36 X% = 132
  11. 38  GOSUB 210
  12. 40 X% = 140
  13. 42  GOSUB 222
  14. 100  VTAB (21): PRINT "Wrong, this is what you would see.      Please wait and try again."
  15. 110  FOR I = 0 TO 1500: NEXT : CALL 62450
  16. 120  PRINT  CHR$(4);"run q10"
  17. 150  END 
  18. 198  REM       P
  19. 200  HPLOT X%,Y% -4 TO X%,Y% -5
  20. 202  HPLOT X% +1,Y% -6 TO X% +4,Y% -6
  21. 204  HPLOT X% +1,Y% -3 TO X% +4,Y% -3
  22. 206  HPLOT X% +4,Y% TO X% +4,Y% -6
  23. 208  RETURN 
  24. 210  REM       E
  25. 212  HPLOT X%,Y% TO X% +4,Y%
  26. 214  HPLOT X% +1,Y% -3 TO X% +4,Y% -3
  27. 216  HPLOT X%,Y% -6 TO X% +4,Y% -6
  28. 218  HPLOT X% +4,Y% TO X% +4,Y% -6
  29. 220  RETURN 
  30. 222  REM       R
  31. 224  HPLOT X% +4,Y% TO X% +4,Y% -6
  32. 226  HPLOT X% +1,Y% -6 TO X% +3,Y% -6
  33. 228  HPLOT X% +1,Y% -3 TO X% +3,Y% -3
  34. 230  HPLOT X%,Y% -4 TO X%,Y% -5
  35. 232  HPLOT X%,Y%
  36. 234  HPLOT X% +1,Y% -1
  37. 236  HPLOT X% +2,Y% -2
  38. 238  RETURN 
  39. 240  REM      M
  40. 242  HPLOT X%,Y% TO X%,Y% -6
  41. 244  HPLOT X% +1,Y% -5
  42. 246  HPLOT X% +2,Y% -3 TO X% +2,Y% -4
  43. 248  HPLOT X% +3,Y% -5
  44. 250  HPLOT X% +4,Y% TO X% +4,Y% -6
  45. 252  RETURN 
  46. 254  REM       A
  47. 256  HPLOT X%,Y% TO X%,Y% -4
  48. 258  HPLOT X% +4,Y% TO X% +4,Y% -4
  49. 260  HPLOT X% +1,Y% -2 TO X% +3,Y% -2
  50. 262  HPLOT X% +1,Y% -5
  51. 264  HPLOT X% +2,Y% -6
  52. 266  HPLOT X% +3,Y% -5
  53. 268  RETURN 
  54. 270  REM       D
  55. 272  HPLOT X%,Y% -1 TO X%,Y% -5
  56. 274  HPLOT X% +1,Y% TO X% +3,Y%
  57. 276  HPLOT X% +1,Y% -6 TO X% +3,Y% -6
  58. 278  HPLOT X% +4,Y% TO X% +4,Y% -6
  59. 280  RETURN 
  60. 282  REM       S
  61. 284  HPLOT X%,Y% -1 TO X%,Y% -2
  62. 286  HPLOT X%,Y% -5
  63. 288  HPLOT X% +1,Y% TO X% +3,Y%
  64. 290  HPLOT X% +1,Y% -3 TO X% +3,Y% -3
  65. 292  HPLOT X% +1,Y% -6 TO X% +3,Y% -6
  66. 294  HPLOT X% +4,Y% -5 TO X% +4,Y% -4
  67. 296  HPLOT X% +4,Y% -1
  68. 298  RETURN 
  69. 300  REM       T
  70. 302  HPLOT X%,Y% -6 TO X% +4,Y% -6
  71. 304  HPLOT X% +2,Y% TO X% +2,Y% -5
  72. 306  RETURN